home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / maguire / jpot / jpotdir < prev   
Text File  |  1990-05-14  |  4KB  |  146 lines
  1. %%HP: T(1)A(D)F(.);
  2. DIR
  3.   AMT '-10+(20+AMT)
  4. '
  5.   CST { NEW PLAY
  6. TBLE QUIT }
  7.   DSPA
  8.     ½ PICT { # 1d
  9. # 1d }
  10. " TOTAL          $"
  11. AMNT + 2 ìGROB REPL
  12.     ╗
  13.   FIG {
  14. GROB 16 16 0000000000000C300FF08FF1CFF3FFFFFFFFCFF38FF10FF00C30000000000000
  15. GROB 16 16 000000000006000100808F40CF20EF10EF70EFF0EFF0EFF0CFF0CF708F300000
  16. GROB 16 16 00000810081008100810081008100C300E700E700E700E700FF00E7008100000
  17. GROB 16 16 000008100C300E700FF08FF1CFF3EFF7EFF7CFF38FF10FF00E700C3008100000
  18. GROB 16 16 0000000083C1C7E3EFF7EFF7EFF7EFF7CFF38FF10FF00E700C30081000000000
  19. GROB 16 16 00000000000000000000CFF3CFF3CFF3CFF3CFF3CFF300000000000000000000
  20. }
  21.   IMPRG
  22.     ½ WORK RCLF ì
  23. fgs
  24.       ½ -40 CF -55
  25. CF
  26.         DO 1 MENU
  27. CST
  28.           WHILE -1
  29. WAIT IP 10 - DUP2
  30. SWAP SIZE >
  31.           REPEAT
  32. DROP 340 .07 BEEP
  33.           END GET
  34. DUP EVAL
  35.         UNTIL { End
  36. EXIT QUIT } SWAP
  37. POS
  38.         END fgs
  39. STOF
  40.       ╗
  41.     ╗
  42.   NEW
  43.     ½ 500 'AMNT'
  44. STO ERASE { # 0d
  45. # 0d } DSPA PVIEW
  46.     ╗
  47.   PLAY
  48.     ½ ERASE { # 0d
  49. # 0d } 'AMNT' 10
  50. STO- 1440 .02 BEEP
  51. DSPA PVIEW PICT {
  52. # 6d # 44d } # 125d
  53. # 8d BLANK REPL
  54. SPIN 41 75
  55.       FOR c RAND 6
  56. * CEIL PICT c RìB {
  57. # 17d } + FIG 4
  58. PICK GET REPL 17
  59.       STEP SCORE
  60.     ╗
  61.   QUIT
  62.     ½ WORK CLVAR
  63. JPOTDIR UPDIR 2
  64. MENU
  65.     ╗
  66.   SCORE
  67.     ½ 3 ìLIST { } 3
  68. 2
  69.       FOR i
  70.         IF OVER DUP
  71. i GET POS i ï
  72.         THEN OVER i
  73. GET +
  74.         END -1
  75.       STEP SWAP
  76. DROP
  77.       IF DUP SIZE
  78. DUP
  79.       THEN SLST ROT
  80. 1 GET GET OVER 2 ==
  81. 2.5 * + * 10 *
  82.       ELSE DROP2 0
  83.       END PICT {
  84. # 6d # 44d }
  85. " WIN          $" 4
  86. PICK + 2 ìGROB REPL
  87.       IF DUP
  88.       THEN 1 OVER
  89.         START 1440
  90. .02 BEEP 2
  91.         STEP
  92.       END 'AMNT'
  93. STO+ DSPA
  94.     ╗
  95.   SFIG {
  96. GROB 9 9 00000000C700EF00FF10EF00C70000000000
  97. GROB 9 9 000008100400E200F100F300F300F300E100
  98. GROB 9 9 0100010001000100010083008300C7000100
  99. GROB 9 9 01008300C700EF00FF10EF00C70083000100
  100. GROB 9 9 0000C600EF00EF00EF00C700830001000000
  101. GROB 9 9 000000000000EF00EF00EF00000000000000
  102. }
  103.   SLST { 0 1 2 3 4
  104. 5 }
  105.   SPIN
  106.     ½ WNDWS 1 .0001
  107. .03
  108.       FOR i GETI
  109. PICT { # 40d # 16d
  110. } ROT REPL 880 .005
  111. BEEP i WAIT .001
  112.       STEP DROP2
  113.     ╗
  114.   TBLE
  115.     ½ ERASE { # 0d
  116. # 0d } PVIEW 1 6
  117.       FOR n SFIG n
  118. GET 1 5
  119.         FOR i PICT
  120. { # 8d # 18d # 66d
  121. # 76d # 86d } i GET
  122. n 1 - 10 * RìB 2
  123. ìLIST 3 PICK REPL
  124.         NEXT DROP
  125. SLST n GET 10 * n 1
  126. - 10 * RìB DUP2
  127. PICT { # 38d } ROT
  128. + ROT 1 ìGROB REPL
  129. PICT { # 106d } ROT
  130. + ROT 2 * 50 + 1
  131. ìGROB REPL
  132.       NEXT 0 WAIT
  133. DROP
  134.     ╗
  135.   WNDWS {
  136. GROB 52 18 FFFFFFFFFFFFF01000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFF30004000801000200040008010002000CFFFF010002000400080100020004000801000EFFF7000801000200040008010002000400080FFFFFFFFFFFFF0
  137. GROB 52 18 FFFFFFFFFFFFF01000EFFF70008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFF30004000801000200040008010002000CFFFF01000200040008010002000400080FFFFFFFFFFFFF0
  138. GROB 52 18 FFFFFFFFFFFFF010002000CFFFF010002000400080100020004000801000EFFF70008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFF300040008010002000400080FFFFFFFFFFFFF0
  139. GROB 52 18 FFFFFFFFFFFFF010002000400080FFFF30004000801000200040008010002000CFFFF010002000400080100020004000801000EFFF700080100020004000801000200040008010002000400080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFFFFFFFFFFF0
  140. GROB 52 18 FFFFFFFFFFFFF010002000400080100020004000801000200040008010002000400080FFFF30004000801000200040008010002000CFFFF010002000400080100020004000801000EFFF700080100020004000801000200040008010002000400080100020004000801000200040008010002000400080FFFFFFFFFFFFF0
  141. }
  142.   WORK
  143.     DIR
  144.     END
  145. END
  146.